Imports Aricie.DNN.UI.WebControls
Imports Aricie.DNN.Modules.LuceneSearch.Business
Imports DotNetNuke.Entities.Modules

Namespace Aricie.DNN.Modules.LuceneSearch.UI.Controls

    Public Class SearchableModuleMultiSelector
        Inherits MultiSelectorControl(Of DesktopModuleInfo)

        Public Overrides Function GetEntitiesG() As IList(Of DesktopModuleInfo)
            Dim toReturn As IList(Of DesktopModuleInfo) = PortalQueryingDriver.GetCurrent().GetSearchableModules
            Return toReturn
        End Function

        Protected Overrides Sub Render(writer As System.Web.UI.HtmlTextWriter)
            writer.AddAttribute(HtmlTextWriterAttribute.Class, "ScrollingViewPort")
            writer.RenderBeginTag("div")
            MyBase.Render(writer)
            writer.RenderEndTag()
        End Sub
    End Class

End Namespace
